home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Angebot.outpri < prev    next >
Text File  |  1999-03-27  |  13KB  |  611 lines

  1. 1$VER: Angebot 1.11 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.11
  6. %%Title: (MT-RechnungIII - Angebot)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 60 def
  22. /DokumentRandY 45 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. /DokumentRandYOriginal DokumentRandY def
  43. %%EndSetup
  44.  
  45. %%BeginnResource
  46. /reencodedict 5 dict def
  47. /ReEncode
  48. {
  49.      reencodedict begin
  50.      /newencoding exch def
  51.      /newfontname exch def
  52.      /basefontname exch def
  53.  
  54.      /basefontdict basefontname findfont def
  55.  
  56.      /newfont basefontdict maxlength dict def
  57.  
  58.      basefontdict
  59.      { exch dup dup /FID ne exch /Encoding ne and
  60.           { exch newfont 3 1 roll put }
  61.           { pop pop }
  62.           ifelse
  63.      } forall
  64.      newfont /FontName newfontname put
  65.      newfont /Encoding newencoding put
  66.      newfontname newfont definefont pop
  67.      end
  68. } def
  69.  
  70. /ISOLatin8Encoding
  71. [
  72.     ISOLatin1Encoding 0 164 getinterval aload pop
  73.     /euro
  74.     ISOLatin1Encoding 165 91 getinterval aload pop
  75. ] def
  76. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  77. %%EndResource
  78.  
  79. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  80. /Times28 28 /OF0 /Times-Roman /OF0 getfont
  81. /Times28Line 28 def
  82. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  83. /Times14Line 14 def
  84. /Times10 10 /OF0 /Times-Roman /OF0 getfont
  85. /Times10Line 10 def
  86. /Times8 8 /OF0 /Times-Roman /OF0 getfont
  87. /Times8Line 8 def
  88. Times14 setfont
  89.  
  90. /ZWDokumentRand DokumentRandY def
  91. /Seite 1 def
  92. /SeitenNr 4 string def
  93.  
  94. DokumentRandX DokumentRandY moveto
  95. DruckDatum 0 get dup stringwidth
  96. pop 486 exch sub
  97. DokumentRandX add DokumentRandY moveto show
  98.  
  99. %% Ausgab des Dokuments
  100. NiedAdresse3
  101. {
  102.     DokumentRandX ZWDokumentRand moveto
  103.     show
  104.     ZWDokumentRand Times14Line sub /ZWDokumentRand exch def
  105. } forall
  106.  
  107. /Position 0 def
  108. DokumentRandY 110 sub /DokumentRandY exch def
  109.  
  110. Times28 setfont
  111. DokumentRandX DokumentRandY moveto
  112. (Angebot) dup stringwidth
  113. pop 486 exch sub
  114. DokumentRandX add DokumentRandY moveto
  115. show
  116.  
  117. Times8 setfont
  118. Times8 /FontInfo known
  119. {
  120.     Times8 /FontInfo get dup dup dup /UnderlinePosition known
  121.     {
  122.         /UnderlinePosition get
  123.         Times8Line mul 1000 div cvi /Unterstreichabstand exch def
  124.     }
  125.     {
  126.         Times8Line -9 div cvi /Unterstreichabstand exch def
  127.         pop
  128.     } ifelse
  129.     /UnderlineThicknes known
  130.     {
  131.         /UnderlineThicknes get
  132.         Times8Line mul /Unterstrichdicke exch def
  133.     }
  134.     {
  135.         Times8Line 24 div /Unterstrichdicke exch def
  136.         pop
  137.     } ifelse
  138. }
  139. {
  140.     Times8Line -9 div cvi /Unterstreichabstand exch def
  141.     Times8Line 24 div /Unterstrichdicke exch def
  142.     pop
  143. } ifelse
  144.  
  145. NiedAdresse1
  146. {
  147.     newpath
  148.     DokumentRandX DokumentRandY Unterstreichabstand add moveto
  149.     stringwidth pop DokumentRandX add DokumentRandY Unterstreichabstand add
  150.     lineto closepath Unterstrichdicke setlinewidth
  151.     stroke
  152.     DokumentRandX DokumentRandY moveto
  153.     NiedAdresse1 Position get show
  154.     DokumentRandY Times8Line sub /DokumentRandY exch def
  155.     Position 1 add /Position exch def
  156. } forall
  157.  
  158. 0.5 setlinewidth
  159.  
  160. Times14 setfont
  161.  
  162. DokumentRandY Times14Line sub /DokumentRandY exch def
  163. ARRechEmpfNr (0) eq
  164. {
  165.     DokumentRandX DokumentRandY moveto
  166.     (Barverkauf) show
  167.     DokumentRandY 25 sub /DokumentRandY exch def
  168. }
  169. {
  170.     RempfAdresse3
  171.     {
  172.         DokumentRandX DokumentRandY moveto
  173.         show
  174.         DokumentRandY Times14Line sub /DokumentRandY exch def
  175.     } forall
  176. } ifelse
  177.  
  178. DokumentRandY 50 sub /DokumentRandY exch def
  179.  
  180. ARWareEmpfNr (0) ne
  181. {
  182.     DokumentRandX DokumentRandY moveto
  183.     (Warenempfänger:) show
  184.     WempfAdresse3
  185.     {
  186.         DokumentRandX 120 add DokumentRandY moveto
  187.         show
  188.         DokumentRandY Times14Line sub /DokumentRandY exch def
  189.     } forall
  190.     DokumentRandY 10 sub /DokumentRandY exch def
  191. } if
  192.  
  193. DokumentRandX DokumentRandY moveto
  194. (Ihre KundenNr.:) show
  195. DokumentRandX 120 add DokumentRandY moveto
  196. ARRechEmpfNr show
  197. DokumentRandY Times14Line sub /DokumentRandY exch def
  198.  
  199. DokumentRandX DokumentRandY moveto
  200. (AngebotsNr.:) show
  201. DokumentRandX 120 add DokumentRandY moveto
  202. DokumentNr show
  203. DokumentRandY Times14Line sub /DokumentRandY exch def
  204.  
  205. DokumentRandX DokumentRandY moveto
  206. (Angebotsdatum:) show
  207. DokumentRandX 120 add DokumentRandY moveto
  208. ARAngebotDatum 0 get show
  209. DokumentRandY Times14Line sub /DokumentRandY exch def
  210.  
  211. DokumentRandX DokumentRandY moveto
  212. (Ansprechpartner:) show
  213. DokumentRandX 120 add DokumentRandY moveto
  214. VerkVorname show
  215. ( ) show
  216. VerkName show
  217. DokumentRandY Times14Line sub 20 sub /DokumentRandY exch def
  218.  
  219. 0 /Position exch def
  220. Times10 setfont
  221.  
  222. /Ueberschrift {
  223. /BoxX1 DokumentRandX def
  224. /BoxX2 486 def
  225. /BoxY1 DokumentRandY 2 sub Times10Line sub def
  226. /BoxY2 Times10Line Times10Line add def
  227.  
  228. 0.9 setgray
  229. BoxX1 BoxY1 BoxX2 BoxY2 rectfill
  230. 0.0 setgray
  231. BoxX1 BoxY1 BoxX2 BoxY2 rectstroke
  232.  
  233. DokumentRandX 3 add DokumentRandY moveto
  234. (Artikel) show
  235.  
  236. DokumentRandX DokumentRandY moveto
  237. (Anzahl) dup stringwidth
  238. pop 80 exch sub
  239. DokumentRandX add DokumentRandY moveto show
  240.  
  241. DokumentRandX 85 add DokumentRandY moveto
  242. (Artikelbezeichnung) show
  243.  
  244. DokumentRandX 280 add DokumentRandY moveto
  245. (Einheit) show
  246.  
  247. DokumentRandX DokumentRandY moveto
  248. (MWSt) dup stringwidth
  249. pop 360 exch sub
  250. DokumentRandX add DokumentRandY moveto show
  251.  
  252. DokumentRandX DokumentRandY moveto
  253. (Einzelpreis) dup stringwidth
  254. pop 420 exch sub
  255. DokumentRandX add DokumentRandY moveto show
  256.  
  257. DokumentRandX DokumentRandY moveto
  258. (Summe) dup stringwidth
  259. pop 486 exch sub
  260. DokumentRandX add DokumentRandY moveto show
  261.  
  262.  
  263. DokumentRandY Times10Line sub /DokumentRandY exch def
  264.  
  265. DokumentRandX 85 add DokumentRandY moveto
  266. (Zu-/Abschlagsbezeichnung) show
  267.  
  268. DokumentRandX DokumentRandY moveto
  269. (-wert/%) dup stringwidth
  270. pop 360 exch sub
  271. DokumentRandX add DokumentRandY moveto show
  272.  
  273. DokumentRandX DokumentRandY moveto
  274. (-betrag) dup stringwidth
  275. pop 420 exch sub
  276. DokumentRandX add DokumentRandY moveto show
  277.  
  278. DokumentRandY Times10Line sub 5 sub /DokumentRandY exch def
  279. } def
  280.  
  281. Ueberschrift
  282.  
  283. /ZuAbPos 115 def
  284. ARZuAbNr
  285. {
  286.     0 ne
  287.     {
  288.         ZuAbPos Times14Line add /ZuAbPos exch def
  289.     } if
  290. } forall
  291.  
  292. ZuAbPos 115 ne
  293. {
  294.     ZuAbPos 5 add /ZuAbPos exch def
  295. } if
  296.  
  297. /Zaehler ZuAbPos def
  298.  
  299. ARMWStBel
  300. {
  301.     {
  302.         Zaehler Times14Line add /Zaehler exch def
  303.     } if
  304. } forall
  305.  
  306. Zaehler ZuAbPos ne
  307. {
  308.     Zaehler 5 add /Zaehler exch def
  309. } if
  310.  
  311. /MWStPos Zaehler def
  312.  
  313. MWStPos Times14Line add 5 add /VersandPos exch def
  314.  
  315. /BemerkungPos VersandPos def
  316.  
  317. /BemerkungZeilen ARBemerkung length def
  318. BemerkungZeilen 0 ne
  319. {
  320.     BemerkungZeilen Times14Line mul cvi 5 add BemerkungPos add
  321.     /BemerkungPos exch def
  322. } if
  323.  
  324. ARPositionen
  325. {
  326.     /pos exch def
  327.  
  328.     %% Länge der Position ermitteln
  329.     pos 0 get 4 get length 1 add
  330.     pos 1 get 16 get length add
  331.     pos 1 get 11 get
  332.     {
  333.         0 ne
  334.         {
  335.             1 add
  336.         } if
  337.     } forall
  338.     Times10Line mul cvi 5 add
  339.     /Poslength exch def
  340.  
  341.     %% Mal schaun, ob noch genügend Platz ist, auf der Seite
  342.     60 DokumentRandY Poslength sub gt
  343.     {
  344.         Seite 1 add /Seite exch def
  345.         DokumentRandX 200 add 50 moveto
  346.         (Weiter auf Seite: ) show
  347.         Seite SeitenNr cvs show
  348.         showpage
  349.         /DokumentRandY DokumentRandYOriginal def
  350.         DokumentRandX 200 add DokumentRandY moveto
  351.         (Fortsetzung von Seite: ) show
  352.         Seite 1 sub SeitenNr cvs show
  353.         DokumentRandY Times10Line sub Times10Line sub /DokumentRandY exch def
  354.         Ueberschrift
  355.     } if
  356.  
  357.     %% Artikelnummer
  358.     DokumentRandX 3 add DokumentRandY moveto
  359.     pos 1 get 1 get show
  360.  
  361.     %% Menge/Anzahl
  362.     DokumentRandX DokumentRandY moveto
  363.     pos 1 get 2 get dup stringwidth
  364.     pop 80 exch sub
  365.     DokumentRandX add DokumentRandY moveto show
  366.  
  367.     %% Artikelbezeichnung
  368.     DokumentRandX 85 add DokumentRandY moveto
  369.     pos 0 get 3 get show
  370.  
  371.     %% Mengeneinheit
  372.     DokumentRandX 280 add DokumentRandY moveto
  373.     pos 0 get 5 get show
  374.  
  375.     %% MWSt-Prozentsatz
  376.     DokumentRandX DokumentRandY moveto
  377.     pos 1 get 8 get dup stringwidth
  378.     pop 360 exch sub
  379.     DokumentRandX add DokumentRandY moveto    show
  380.  
  381.     %% Einzelpreis
  382.     DokumentRandX DokumentRandY moveto
  383.     pos 1 get 3 get ARWaehrung get dup stringwidth
  384.     pop 420 exch sub
  385.     DokumentRandX add